home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / pssst.arc / PSDELETE.PRG < prev    next >
Encoding:
Text File  |  1986-07-15  |  2.5 KB  |  107 lines
  1.  
  2. * PSDELETE.PRG
  3. *
  4. * A DBASE II 16BIT COMMAND FILE to allow deletion of suspense items
  5. * from SUSPENSE datafile followd by adding them to the deletion
  6. * datafile.  Called by PSEDITS
  7. *
  8. * Version 1
  9. * By LTC Denny Hugg
  10. * ANGSC/DOS Andrews AFB MD 16 Jul 1985
  11. *
  12. * Version 2  
  13. * modified by Maj Jim McMurry
  14. * ANGSC/DOSC Truax Field, WI 15 Jun 1986
  15. *
  16. SELECT SECONDARY
  17. USE &gdelfile
  18. SELECT PRIMARY
  19. ERASE
  20. STORE 2 TO line
  21. STORE 'M O V I N G   T O   D E L E T I O N   F I L E' TO prompt
  22. DO PSPROMPT
  23. @  7, 0 SAY 'Record Number: '
  24. @  7,14 SAY #
  25. @  8, 0 SAY 'Description: '+descrip
  26. @  9, 0 SAY 'Origin: '+origin
  27. @ 10, 0 SAY 'Priority: '+priority
  28. @ 11, 0 SAY 'Date Received: '+in:date
  29. @ 12, 0 SAY 'Due: '+duedate
  30. @ 13, 0 SAY 'OPR: '+opr
  31. STORE '     ' TO recnum
  32. ? gcuron
  33. @ 22,79 SAY '               ';
  34.          + 'Confirm deletion By Re-entering Record Number ';
  35.        GET recnum PICTURE '99999'
  36. READ NOUPDATE
  37. @ 0, 0 SAY gcuroff
  38. IF VAL(recnum) <> recno
  39.    @ 22,79 SAY gclearline
  40.    @ 22,79 SAY '                 ';
  41.              + 'Record Number Does Not Agree With Control Number'
  42.    STORE 1 TO timer
  43.    DO WHILE timer < gdelay
  44.       STORE timer + 1 TO timer
  45.    ENDDO
  46.    SKIP - counter
  47.    RETURN
  48. ENDIF
  49. RELEASE recnum, gline
  50. STORE priority TO mpriority
  51. STORE in:date TO min:date
  52. STORE duedate TO mduedate
  53. STORE origin TO morigin
  54. STORE descrip TO mdescrip
  55. STORE opr TO mopr
  56. STORE phone TO mphone
  57. STORE rem1 TO mrem1
  58. STORE rem2 TO mrem2
  59. STORE rem3 TO mrem3
  60. STORE rem4 TO mrem4
  61. STORE rem5 TO mrem5
  62. STORE rem6 TO mrem6
  63. STORE rem7 TO mrem7
  64. STORE rem8 TO mrem8
  65. STORE rem9 TO mrem9
  66. STORE rem10 TO mrem10
  67. STORE rem11 TO mrem11
  68. STORE rem12 TO mrem12
  69. DELETE
  70. STORE 'Y' TO needpack
  71. @ 22,79 SAY gclearline
  72. SELECT SECONDARY
  73. APPEND BLANK
  74. @ 0, 0 SAY gcuron
  75. @ 22,79 SAY '                   ';
  76.           + 'Enter Reason For Deletion ' GET reason
  77. READ
  78. @ 0, 0 SAY gcuroff
  79. REPLACE priority WITH mpriority
  80. REPLACE in:date WITH min:date
  81. REPLACE duedate WITH mduedate
  82. REPLACE descrip WITH mdescrip
  83. REPLACE opr WITH mopr
  84. REPLACE phone WITH mphone
  85. REPLACE rem1 WITH mrem1
  86. REPLACE rem2 WITH mrem2
  87. REPLACE rem3 WITH mrem3
  88. REPLACE rem4 WITH mrem4
  89. REPLACE rem5 WITH mrem5
  90. REPLACE rem6 WITH mrem6
  91. REPLACE rem7 WITH mrem7
  92. REPLACE rem8 WITH mrem8
  93. REPLACE rem9 WITH mrem9
  94. REPLACE rem10 WITH mrem10
  95. REPLACE rem11 WITH mrem11
  96. REPLACE rem12 WITH mrem12
  97. USE
  98. SELECT PRIMARY
  99. IF # <> firstshown
  100.    GO firstshown
  101. ELSE
  102.    GO TOP
  103. ENDIF
  104. RELEASE ALL LIKE m*
  105. RETURN
  106. * --- EOF PSDELETE.PRG
  107.